home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / bootup / boot_a2m / co_pilot / copilota.pas < prev    next >
Pascal/Delphi Source File  |  1995-05-02  |  1KB  |  45 lines
  1.  
  2. {A program to be inserted into the AUTO folder and display warnings and 
  3. reminders when the system is RESET.
  4.  
  5.                          Author        : Merlin L. Hanson
  6.                          Genie Address : M.L.HANSON
  7.                          Language      : Personal Pascal 2.0
  8.                          Date          : March 1990
  9.                          Version       : 1.0      }                                        
  10.  
  11. PROGRAM Co_Pilot_A;  {For booting from A:\}
  12. CONST
  13.   Bel = 7;   {ASCII for Bell sound.}
  14. VAR
  15.   InputFile : {FILE OF} text;
  16.   S         : string;
  17.   DingCtr   : integer;
  18.   
  19. PROCEDURE TimeDelay;
  20.   VAR  Ctr : long_integer;
  21.   BEGIN
  22.     Ctr := 0;
  23.     REPEAT
  24.       Ctr := Ctr + 1;
  25.     UNTIL Ctr > 20000;
  26.   END {timedelay};
  27.     
  28. BEGIN {main}
  29.   RESET(InputFile,'A:\AUTO\CO_PILOT.INF');
  30.   FOR DingCtr := 1 TO 5 DO
  31.     BEGIN
  32.       Write(CHR(Bel));  
  33.       TimeDelay;
  34.     END;  
  35.   WriteLn('');  {Most recent program in the \AUTO\ folder may not have had a CR.} 
  36.   WHILE NOT EOF(InputFile) DO
  37.     BEGIN
  38.       ReadLn(InputFile,S);
  39.       WriteLn(S);
  40.     END;
  41.   {Normal GEM program needs a delay here. No screen clear on the AUTO 
  42.   folder programs, so no delay is needed.}
  43.   CLOSE(InputFile);
  44. END {of program}.      
  45.